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^ ^ INTRODUCTION 



In many situations of assembling, debugging, and modifying programs, a cross- 
reference listing is an invaluable aid. This listing is particularly useful 
when a programmer wishes to make changes in a large program or one he does not 
know well. 

A cross-reference is an alphabetical listing of all user-defined symbols with the 
line numbers at which the symbol was defined and used. Thus, the various places 
that a tagged location or an equated symbol is used are easily identified. 

CREF12 provides this facility to the DIAL-MS^ user. 

It should be noted that the usefulness of a CREF (CRoss-REFerence ) is almost 
directly proportional to the quality of the coding. In particular, the follow- 
ing principles should be used xn new coding in order to make the best use of 
CREF12 : 

1. Use symbolic references for beta registers, auto-index registers, 
page zero constants and temporaries, and fixed core locations. 

2. Avoid use of large displacements from a tag (e.g., TAD X+12 or 
JMP y-6) because references to X and Y, respectively, rather than 
the locations actually used, will appear in the CREF. 

2.0 ENVIRONMENT 

CREF12 (including its header) occupies six blocks in the DIAL file area of any 
unit. It is loaded into locations J2f through 2377 of field 1 and is entered at 
200 in field 1. 

3.0 USING CREF12 

CREF12 is intended for use in conjunction with the LISTAPE pseudo-op of the 
DIAL-MS Assembler. LISTAPE (with a positive argument) produces a normal 

( R 

assembler listing on a mass-storage device, rather than on the console Teletype^ 
or line printer. The resulting data may then be processed by CREF12 to produce 
a full cross-reference of user-defined symbols and, optionally, the assembly 
listing . 

To use CREF12, insert a LISTAPE n pseudo-op in the program of interest, where 
n is an expression whose value is between 0 and 17, octal, and is taken as the 

Teletype is a registered trademark of Teletype Corporation. 

^LAP6-DIAL-MS is commonly referred to as DIAL-MS. 
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unit number of a scratch tape (^- 1 ) or disk (1^-17) on which the Assembler list- 
ing will be produced. The user must exercise caution in assigning units for 
LISTAPE because the listing information is written directly on the unit starting 
at block zero without regard to anything else that may be on the same unit. 
Therefore, unit n should be either a scratch tape or a logical disk devoted to 
scratch work. 

3 . 1 Operating Procedures 

1. Set all six sense switches on. Be sure the tape or disk unit 
assigned by the LISTAPE pseudo-op is ready and WRITE ENABLEd. 

2- Assemble the program with the LIST Command (refer to the LAP6-DIAL 
Programmer's Reference Manual, DEC-12-SE2D-D) , 

3. If a printer is to be used for the CREF, it should be ready at 
this time. When the Editor display returns, load CREF12 by 
typing -^LO CREFl2,j2fJ 

4. The following message is printed: 

UNIT #? 

Type an octal number between 0 and 17, followed by carriage return, 
for the unit on which the listing was written. 

5. The next message is 

LISTING [Y OR N] ? 

Type Y if the full assembly listing and CREF are desired; N if only 
the CREF is needed . 

6. CREF12 will then type: 

PRINTER [Y OR N]? 

Type Y if the output is to be produced on a line printer (it must 
be ready before Y is entered) , or N if the output is to be to the 
console Teletype. 

Assuming the specified unit is available and ready, CREF12 will then read the 
listing (printing it if requested) and print the cross-reference table. 

3 . 2 Error Conditions 

Under some conditions, CREF12 will not be able to produce the cross-reference 
desired. 



1. If there were errors in the assembly, CREF12 may interpret the 
program incorrectly, or may even be unable to process it at 
all. In the latter event, it will print "BAD INPUT" and return 
to DIAL-MS. 

2. If there is a large number of symbols and references, the cross- 
reference table may overflow. In this case, CREF12 prints: 



CORE OVERFLOWED AT LINE NO. XXXX 
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where XXXX is the last line number processed. CREF12 then 
prints the cross-reference up to that line, and returns to 
DIAL-MS. This problem will arise if (NSYM*5 + NREF) is greater 
than 4094 r where NSYM is the number of user-defined symbols in 
the program, and NREF is the number of references to user-defined 
symbols. If there are more than 818^^^ symbols, this message 
will occur during the first pass, with XXXX equal to 0000, 

CREF12 will print "BAD INPUT" and return to DIAL-MS. 



If a program containing a LISTAPE pseudo-op is to be assembled without getting a 
CREF, use the normal assembly procedure with the sense switches off; this 
disables the LISTAPE function. 



4.0 INTERNAL DESCRIPTION 

After reading the DIAL-MS I/O routines into 7000-7777 of field 1, CREF12 requests 
three parameters from the user: the unit from which to read the listing, if the 

listing is to be printed, and if a line printer is to be used for the output. 
CREF12 then begins its first pass over the data. The routine MAIN rewinds the 
input, initializes counters, and calls the subroutines GETLIN and ENDLST to get 
a line of input and check it for the separator between the listing proper and 
the symbol table, respectively. This separator is a line with one of two 
messages, "NO ERRORS" or "XXXX ERRORS". If the input runs out (indicated by a 
word of zero) before the separator is found, the input is invalid and processing 
is terminated with the message "BAD INPUT". If the separator is found, SYMBUILD 
takes over and reads the symbol table. Each symbol is stored in stripped ASCII 
form in field 0, followed by two words of zero. 

When the end of data is found, control passes to PART2, which rewinds the input 
file. MAJOR calls GETLIN and ENDLST to get successive lines from the file and 
test for the end of the listing proper. After checking for the separator, MAJOR 
flows into SCAN, which collects a symbol at NAME, calls NSERCH to search the 
symbol table for it, and (if it finds the symbol) stores the line number with 
the symbol in field 0. Control returns to SCAN until either carriage return, 
slash, or "TEXT" is found. Control then returns to MAJOR to get a new 
line. 

When a separator is found, control transfers to DUMP, which prints a header, then 
reads each symbol from the file. Each symbol and its value are printed, followed 
by the line number at which the symbol was defined, and then the line numbers 
at which the references to it were made. 

Output is terminated, and control returns to DIAL-MS, when the end of the symbol 
table is found. 
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The functions of minor routines are as follows: 



BOPUP 

CRLF 

GETBLK 

GETC 

GETLIN 

IMOVE 

IPUSH 



ISNUM 



I ZERO 



LIMIT 



NSERCH 



POCTAL 



TTY 



Maintains SYSCOUNT to keep track of field ^ utilization and 
issue the message "CORE OVERFLOWED AT LINE NO. xxxx" when 
the symbol table overflows. Called by SCAN when a reference is 
to be added to the symbol table. 

Go to a new line on the Teletype or line printer. 

Get 8 blocks from the input file. Used by GETLIN when the input 
buffer is empty, and ‘by MAIN and PART2 to rewind the input and 
read the first buffer loadT" 

Obtain the next character from the current line and return it in 
CHAR and the AC. Used by many routines. 

Get a line (a string of characters terminated by zero or line 
feed) from the input file. If LISTSW is non-zero, print it. 

Move a block of data across field boundaries. Used by SYMBUILD 
to move a new entry into the symbol table. 

Move a portion of the symbol table down. During SYMBUILD, the 
symbol table is built by pushing previous entries down to lower 
core addresses and entering each new symbol at the end of the 
list (at the top of field 0 ) . During SCAN, references to each 
symbol are stored following the symbol. IPUSH is called to make 
room for each entry. 

Examine the first four characters of the current line. If not 
octal digits, return to P+1. Otherwise, convert them to binary, 
store binary at LINENO, and return to P+2. Called only by MAJOR. 

Search the syinbol table, starting at the location addressed by 
TEMP, for a word of zero. If none is found, return to P+1. 
Otherwise, return to P+2 with TEMP pointing to the zero. 

Called by NSERCH to look for the next symbol and by SCAN to find 
the end of the references to the current symbol. 

Compare the value in the AC to two limits. If the AC is zero, 
return to address in P+3? if AC is out of limits, return to 
address in P+4. If AC is within the limits, return to P+5. Used 
by many routines. 

Find the symbol table entry which matches the symbol at NAME. 
Return to P+1 if no match is found, or to P+2 if successful. 
Called only by SCAN. 

Print the value in the AC, converted to octal characters. Used 
by BOPUP to print the line number at which overflow occurs and 
by DUMP to print the cross-reference line numbers. 

Print a character string. 
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0000 

0001 

0002 

0003 

0004 

0005 

0006 
0007 
0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 
0020 
0021 
0022 

0023 

0024 

0025 

0026 
0027 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0040 

0041 

0042 
00 43 
0044 
00 45 
0046 
00 47 

0050 

0051 







<»20 










/ 


CRETia 


PDP-12 cross reference program 






/ 










/ 


JUD LEONARD 






/ 


JUNE 9, 


1970 






/ 










/ 


PMODE 








/ 


FIELD 


1 






/ 










/ 


«14 








/ 










/ 




AUTO~INDEX AND BETA REGISTERS 






/ 






0014 


0 0 0 0 


AUTOl, 


0 




0 015 


0 00 0 


AUT02. 


0 




<:016 


0 00 0 


AUT03, 


0 




/ 0 1 / 


0 0 0 0 


AUT04, 

/ 

/ 

/ 


0 


SYSTEM variables 


0.:20 


00 00 


SYSCOUNT ,0 




00 21 


0*v00 


LP» 


0 




k' 0 2 2 


0 0 0 0 


LISTSW» 


0 




0023 


0 0 0 0 


LSTREQ* 


0 




00 2 4 


0 fcj 0 0 


TEMP, 


0 




0025 


0 0 0 0 


START, 


0 




0 0 2 6 


0 tfi 0 0 


COUNT, 


0 




't- 'C t l 


k-t 0 0 0 


CHAR, 


0 




0 0 3 0 


00 00 


LINENO, 


0 




0031 


2312 


LPOINT, 


CURLIN 




00 32 


0 0 kV0 


LLEN, 


0 




0033 


7 773 


LINE, 


.5 




00 34 


00 00 


NAME , 


0 




00 35 


0 0 00 




0 




00 36 


00 00 




0 




0037 


0 0 00 




0 




0 0 4 0 


00 00 


/ 


0 





EJECT 




0052 






/ 






0053 






/ 




GLOBAL SUBROUTir 


0054 






/ 






0055 


0041 


1663 


PCRLF, 


CRLF 




0056 


0042 


1647 


PITY, 


TTY 




0057 


0 0 4 3 


1443 


PGETLIN 


,GETLIN 




0060 


0044 


0766 


PGETC, 


GETC 




0061 


00 45 


1267 


PLIHIT, 


LIMIT 




0052 


0046 


1672 


PPUTC, 


PUTC 




0063 


0047 


0415 


PENOLST 


, ENDLST 




0064 


0 0 5 0 


120 0 


P IPUSH» 


IPUSH 




0065 


00 51 


1232 


PIMOVE. 


IMOVE 




0066 


0052 


160 0 


PPOCTAL 


,poctal 




0067 


0053 


1400 


PGETBLK 


, getblk 




0070 


0054 


1432 


PBLOCK* 


BLOCK 




0071 






/ 






0072 






/ 




CONSTANTS 


0073 






/ 






0074 


0055 


fill 


BOOT* 


7777 




0075 


00 56 


7774 


READ* 


7774 




0076 






/ 






0077 


0057 


00 07 


P7, 


7 




0100 


0060 


0215 


GARRET, 


215 




0101 


0061 


0012 


LINPED, 


212 




0102 


0062 


7563 


MCARET, 


-215 




0103 


00 6 3 


7566 


MLINFO, 


-212 




0104 


0064 


0100 


LPPAGE, 


100 


/LINES 


0105 


00 6 5 


iim 


MLPAGE , 


-100 




0106 


0066 


0017 


EJCOM, 


17 




0107 






/ 






0110 


0067 


5373 


MTEXT, 


-2405 


/MINUS 


0111 


0070 


4/54 




«3024 


/SIXBIT 


0112 

0113 


0 0/1 


3 7 40 


/ 


-4040 


/"TEXT 


0114 






/ 






0115 






BUFFER= 


3000 




0116 






8UFL0C= 


26 




0117 






/ 






0120 






/ 






0121 

0122 






/ 


EJECT 






0123 






/ 








0124 






/ 








012S? 








PAGE 






0126 






/ 








0127 


0200 


0002 




0002 


/FORCE 


MODE 


0130 


0201 


6141 




LINC 






0131 








LHOOE 






0132 


0202 


1020 




LDA I 






0133 


0203 


0020 




20 






0134 


0204 


0004 




Esr 




/I/O PRESET 


013b 


0205 


0647 




IDF 


7 




0136 


0206 


0700 




RDC 




/FIRST HALF OF I/O ROUTINES 


0137 


0207 


6322 




6\322 






0140 


0210 


0700 




ROC 




/READ REST OF I/O ROUTINES 


0141 


0211 


7323 




7\323 






0142 


0212 


1020 




LOA I 






0143 


0213 


0010 




10 






0144 


0214 


0001 




AXO 




/SET NO PAUSE 


0145 


0215 


0707 




CHK 




/MOVE TAPE TO DIAL 


0146 


0216 


0277 




277 






0147 


0217 


0002 




POP 






0150 








PMODE 






0151 


0220 


7200 




CLA 




/NULL CHAR 


0152 


0221 


6046 




TLS 




/TO PRIME TTY 


0153 


0222 


7200 


RESTART 


» CLA 






0154 


0223 


3023 




OCA 


LSTREQ 


/CLEAR listing REQUEST 


0155 


0224 


3021 




OCA 


LP 


/SET NO PRINTER 


0156 


0225 


4441 




JMS I 


PCRLF 




0157 


0226 


4442 




JMS I 


PTTY 


/ASK FOR UNIT 


0l60 


0227 


2312 




INIT 






0161 


0230 


3/22 




OCA I 


PPOINTER 




0162 


0231 


4310 


TLOOP» 


JMS 


GETTTY 


/ASSEMBLE UNIT NO 


0163 


0232 


4445 




JMS I ' 


PL IM IT 




0164 


0233 


0260 




260 






0165 


0234 


0267 




267 






0166 


0235 


0222 




RESTART 






0167 


0236 


0251 




USET 






0170 


0237 


1/22 




TAD I 


PPOINTER 




0171 


02 4 0 


7110 




CLL RAR 




/MOVE ONE OR ZERO TO LINK 


0172 


0241 


/640 




S2A CLA 




/ATTEMPT TO SPECIFY GT 17? 


01 73 


0242 


5222 




JMP 


RESTART 


/YES - TRY AGAIN 


0174 


0243 


7006 




rtl 






0175 


02 4 4 


7006 




RTL 






0176 


0245 


1027 




TAD 


CHAR 




0177 


0246 


0324 




AND 


P17 




0200 


0247 


3 722 




DCA I 


PPOINTER 




0201 


02 50 


5231 




JMP 


TLOOP 




0202 






/ 








02 03 


02 51 


1027 


USET , 


TAD 


CHAR 


/NOT A DIGIT 


0204 


02 52 


1062 




TAD 


MCARET 


/IS IT CR? 


0205 


0256 


7 6 40 




SIA CLA 






0206 


0254 


5222 




JMP 


RESTART 


/NO “ ERROR 


02 07 






/ 








0210 








EJECT 








0211 






/ 










0212 






/ 










0213 


0255 


4^42 


LSTSET, 


JMS I 


PTTY 




/ASK FOR LISTING 


0214 


0256 


2322 




LSI 








0215 


0257 


4310 




JMS 


GETTTY 




/WAIT FOR RESPONSE 


0216 


0260 


4441 




JMS I 


PCRLF 






0217 


0261 


1027 




TAD 


CHAR 




/COMPARE RESPONSE * , . 


0220 


0262 


1325 




tad 


MCN 




/., . TO N 


0221 


0263 


7450 




SNA 






/EQUAL? 


0222 


0264 


5271 




JMP 


PRTSET 




/YES - NO LISTING 


02 23 


02 65 


1326 




TAD 


CNMCY 




/COMPARE TO Y 


0224 


0266 


7640 




S2A CLA 






/EQUAL? 


0225 


0267 


5255 




JMP 


LSTSET 




/NO " HE GOOFED 


0226 


027 0 


2023 




ISi 


LSTREQ 




/YES « SET LISTING REQUESTED 


0227 






/ 










0230 






/ 










0231 


0271 


4442 


PRTSET, 


JMS I 


PTTY 




/ASK FOR PRINTER 


0232 


0272 


2343 




PRT 








0233 


0 2 7 3 


4310 




JMS 


GETTTY 






0234 


0274 


4441 




JMS I 


PCRLF 






0235 


0275 


1027 




TAD 


CHAR 






0236 


0276 


1325 




TAD 


MCN 






0237 


0277 


7450 




SNA 








0240 


0300 


5723 




JMP I 


PMAIN 




/NO PRINTER 


0241 


0301 


1326 




TAO 


CNMCY 






0242 


0302 


7640 




S2A CLA 








0243 


0303 


5271 




JMP 


PRTSET 




/NEITHER Y NOR N 


0244 


030 4 


2021 




IS2 


LP 




/YES - SET PRINTER SWITCH 


0245 


0305 


1066 




TAD 


ejcom 






0246 


0306 


6664 




LPR 






/GO TO Top OF page 


0247 


03 07 


5723 




JMP I 


PMAIN 




/begin THE BEGUINNE 


0250 






/ 










0251 






/ 










0252 


0310 


0000 


GETTTY, 


0 








0253 


0311 


6032 




KCC 








0254 


0312 


6031 




KSF 








0255 


0313 


5312 




JMP 


.-1 






0256 


0314 


6036 




KRB 








0257 


0315 


3027 




DCA 


CHAR 






0260 


0316 


1027 




TAD 


CHAR 






0261 


0317 


4446 




JMS I 


PPUTC 






0262 


0320 


1027 




TAD 


CHAR 






0263 


0321 


5710 




JMP I 


GETTTY 






0264 






/ 










0265 






/ 










0266 


0322 


1430 


PPQINTER, POINTER 






0267 


0323 


0400 


PMAIN, 


MAIN 








0270 


0324 


0017 


P17, 


17 








0271 


0325 


7462 


MCN» 


-316 




/-”N 




0272 


0326 


7765 


CNMCY , 


316«331 




/•»N-”Y 




0273 






/ 










0274 








EJECT 










0275 






/ 










0276 








page 








0277 






/ 










0300 






/ 










0301 






/ 




HERE WE GO 






0302 






/ 










0303 


0400 


4441 


MAIN, 


JMS I 


PCRLF 






0304 


0401 


7200 




CLA 








0305 


0402 


3454 




DCA I 


P8L0CK 






0306 


0403 


4453 




JMS I 


PGETBLK 


/RESET THE INPUT UNIT 




0307 


0404 


7240 




CLA CM A 








0310 


0405 


3025 




DCA 


START 


/SET START TO END OF FIELD 


0 


0311 


0406 


7201 




CLA lAC 








0312 


0407 


3020 




OCA 


SYSCOUNT 


/RESET THE SYSTEM COUNTER 




0313 






/ 










0314 






/ 










0315 


0410 


4443 


MLOOP, 


JMS I 


PGETLIN 


/GET A LINE FROM THE INPUT 


FILE 


0316 


0411 


2163 




NOGOOD 




/THERES A ZERO WHERE IT OOESNT BELONG 


0317 


0412 


4215 




JMS 


ENOLST 


/LOOK for end OF LISTING 




0320 


0413 


0456 




SYMBUILD 


/BUILD SYMBOL TABLE 




0321 


0414 


5210 




JMP 


HLOOP 


/ELSE TRY NEXT LINE 




0322 








EJECT 










0323 






/ 








0324 






/ 


ChlECK CURRENT LINE 


FOR END OF LISTING 


032b 






/ 




LINE RILL 


BE EITHER ’’NO ERRORS” OR ”XXXX ERRORS 


0326 






/ 








0327 


0415 


00 00 


ENDLST* 


0 






0330 


0416 


7 2 0 0 




cla 






0331 


041/ 


1615 




TAO I 


ENDLST 


/ADDR FOR END OF LISTING RETURN 


0332 


0 4 2 0 


3254 




DCA 


ENDRET 




0333 


0421 


2’^15 






ENDLST 


/NOT«ENO RETURN 


0334 


0 42 2 


1244 




TAD 


ENOMES 


/MESSAGE AT END OF LISTING 


0335 


0423 


3014 




DCA 


AUTOl 




0336 


0424 


1 2d3 




tad 


ENDLEN 


/MESSAGE LENGTH 


0337 


04 25 


3016 




DCA 


AUT03 




0 34 0 


0 42 6 


14^1 




tad I 


LPOINT 


/LOOK AT FIRST CHAR 


0341 


04 27 


1255 




TAD 


negn 


/compare to N 


0342 


^430 


/640 




Slk CLA 




/SKIP IF »»NO ERRORS” MESS 


0343 


0431 


7105 




CLL lAC 


RAL 


/SET UP A TWO 


0344 


0432 


7101 




CLL lAC 




/NOW ONE OR THREE 


0345 


0.433 


1031 




TAD 


LPOINT 


/ADDED TO START OF LINE 


0346 


0 43 4 


3015 




DCA 


AUT02 




0347 


0 4 35 


1414 


ENDLUP, 


tad I 


AUTOl 




0350 


0436 


1415 




TAD I 


AUT02 




0351 


0437 


7640 




S2A CLA 




/MATCH? 


0352 


0440 


5615 




JMP I 


ENDLST 


/NO - RETURN 


0353 


0441 


2016 




IS2 


AUT03 




0354 


0442 


5235 




JMP 


ENDLUP 




0355 

0356 


0443 


5654 


/ 


JMP I 


ENDRET 


/GOT IT - RETURN 


0357 






/ 








0360 


0444 


04 44 


ENDMES, 


, 






0361 


0445 


7540 




-240 


/BLANK 




0362 


0446 


7473 




=^305 


/E 




0363 


0447 


7456 




-322 


/R 




0364 


0450 


7456 




«322 


/R 




0365 


0451 


7461 




-317 


/O 




0366 


0452 


7456 




-322 


/R 




0367 


0453 


7772 


ENDLEN, 


ENDMES- 


.+1 




0370 






/ 








0371 


0454 


0000 


ENORET, 


0 






0372 


0455 


7462 


NEGN, 


-316 


/- 


”N 


0373 

0374 






/ 


EJECT 








0375 




/ 










0376 




/ 










0377 




/ 


RCAD 


THE SYMBOL 


table 


LISTING, BUILDING AN EQUIVALENT TABLE 


0400 




/ 




IN FIELD 


0 




0401 




/ 










0402 




/ 










0403 


0456 


4443 SYMBUILD.JMS 


I PGETLIN 




/GET A LINE 


0404 


0457 


0600 


PART2 






/BEGIN SEARCH IF END OF FILE 


0405 


0460 


1431 


TAD I 


lpoint 




/GET FIRST CHAR OF SYMBOL 


0406 


t : 4 61 


4445 


JMS I 


PLIMIT 




/VALID SYMBOL? 


0407 


0462 


0301 


301 








0410 


0463 


0332 


332 






/IF NOT ALPHA. IGNORE 


0411 


0464 


0456 


symbuild 






0412 


k^465 


04 56 


SYM8UIL0 






0413 


0466 


6141 


LINC 








0414 






LMODE 








041t? 


046 / 


0074 


SET I 


AUTOl 






0416 


0470 


4033 


NAME = 


4000 






0417 


0471 


0075 


SET I 


AUT02 






0420 


04 72 


77 71 


-6 








0421 


0473 


0002 M8T, POP 








0422 






RHODE 








0423 


0474 


44 4 4 


JMS I 


PGETC 






0424 


0475 


6141 


LINC 








0425 






LMODE 








0426 


0 4 7 6 


1374 


STH I 


AUTOl 






0427 


047/ 


0235 


XSK I 


AUT02 






0430 


0500 


6473 


JMP 


MBT 






0431 


0501 


0002 


POP 








0432 






RHODE 








0433 


0502 


73 00 


CLA CLL 






0434 


0503 


3037 


DCA 


N A ME '*■3 






0435 


0504 


3040 


OCA 


NAME+4 






0436 


0505 


1342 


TAD 


P5 






0437 


0506 


1020 


TAD 


SYSCOUNT 






0440 


0507 


3020 


DCA 


SYSCOUNT 




/UPDATE CORE UTILISATION COUNT 


0441 


0510 


7430 


S^L 






/OVERFLOW? 


0442 


0511 


5327 


JHP 


BOPQUT 




/YES - PRINT ONLY THIS MUCH 


0443 


0512 


4450 


JHS I 


PIPUSH 






0444 


0513 


7777 


7777 






/PUSH DOWN FROM TOP OF FIELD 0 


04 45 


0514 


0005 


5 






/FOR OPENING OF 5 WORDS 


0446 


0515 


4451 


JMS I 


PIMOVE 






0447 


0516 


6211 


CDF 


10 






0450 


0517 


0034 


NAME 








0451 


0520 


6201 


cor 


0 






0452 


0521 


7773 


7773 








04 53 


0522 


0005 


5 








0454 


0523 


5256 


JHP 


SYMBUILD 






0455 




/ 










04 66 




/ 










0457 






EJECT 










0A60 






/ 




0461 






/ 




0462 


0524 


0000 


BOPUP, 


0 


0463 


0525 


2020 




ISZ 


0464 


0526 


5724 




JMP I 


0465 


0527 


4442 


BOPQUT, 


JMS I 


0466 


0530 


2253 




MESSl 


0467 


0531 


1030 




TAD 


0470 


0532 


4452 




JMS I 


0471 


0533 


4441 




JMS I 


0472 


0534 


4441 




JMS I 


0473 


0535 


4443 


BOPRST, 


JMS I 


0474 


0536 


2163 




NOGOOD 


0475 


0537 


4447 




JMS I 


0476 


0540 


2000 




DUMP 


0477 

0500 


0541 


5335 


/ 


JMP 


0501 






/ 




0502 


0542 


0005 


P5, 


5 


0503 

0504 






/ 


EJECT 



SYSCOUNT /INCR STORAGE! USE COUNT 

BOPUP /NORMAL RETURN 

PTTY /OOPS • TOO MUCH FOR CORE 

LINENO 

PPOCTAL 

PCRLF 

PCRLF 

PGETLIN /SCAN TO END OF LISTING 

/BAD DATA 

PENDLST /IS THIS THE END 

BOPRST /TRY NEXT LINE 




0505 

0506 






/ 


PAGE 






0507 






/ 








0510 






/ 


READ THE LISTING BY 


LINES* BUILDING THE CROSS REFERENCE 


0511 






/ 








0512 


0680 


7280 


PART2» 


CLA 






0513 


0681 


3454 




OCA I 


PBLOCK 


/START FROM BLOCK 2ER0 


0514 


0602 


4453 




JMS I 


pgetblk 


/REWIND THE INPUT UNIT NOW 


0515 


0683 


i023 




TAD 


LSTREQ 


/DOES HE WANT A LISTING? 


0516 

0517 


0604 


3022 


/ 


DCA 


LISTSW 


/START LISTING 


0520 






/ 








0521 


0605 


4443 


MAJOR* 


JMS I 


PGETLIN 


/GET A LINE NOW 


0522 


0606 


2163 




NOGOOO 




/SHOULONT BE 2ER0S HERE 


0523 


0607 


4447 




JMS 1 


PENOLST 


/END OF LISTING? 


0524 


0610 


2000 




DUMP 




/YES « DUMP CREF 


0525 


0611 


1354 




TAD 


MMARGIN 


/NO - VERIFY line LENGTH 


0526 


0612 


1032 




TAD 


LLEN 




0527 


0613 


7718 




SPA CLA 




/IS line too short? 


0550 


8614 


5285 




JMP 


MAJOR 


/YES • GET NEXT 


0531 


0615 


4762 




JMS I 


PISNUM 


/NO » IS THERE A LINE NO? 


0532 


0616 


5205 




JMP 


MAJOR 


/NO « GET NEXT LINE 


0533 


0617 


1355 




TAD 


MARGIN 


/YES • SKIP OVER ASH JUNK 


0534 


8620 


1031 




TAD 


LPOINT 




0535 

0536 


0621 


3031 


/ 


DCA 


LPOINT 




0537 






/ 








0540 


0622 


4366 


SCAN, 


JMS 


GETC 


/LOOK FOR A SYMBOL 


0541 


0623 


1360 




TAD 


HSLASH 


/COMMENT? 


0542 


0624 


7650 




SNA CLA 






0543 


0625 


5205 




JMP 


MAJOR 


/YES • GO TO NEXT LINE 


0544 


0626 


1027 




TAD 


CHAR 




0545 


0627 


4445 




JMS I 


PLIHIT 




0546 


0630 


0301 




301 






0547 


0631 


0332 




332 




/A TO 2 


0550 


0632 


0605 




MAJOR 




/2ER0 IMPLIES EOL 


0551 


0633 


0622 




SCAN 




/SEARCH FOR ALPHA 


0552 


0634 


6141 




LINC 






0553 








LMOOE 






0554 


0635 


1020 




LOA I 






0555 

8555 


0636 


4040 




TEXT 


« n 




0556 


06 3 7 


1040 




STA 






0557 


0640 


0034 




NAME 






0560 


0641 


1040 




STA 






0561 


8642 


0035 




NAME+1 






0562 


0643 


4036 




STC 


NAME^2 




0563 


0644 


0074 




SET I 


AUTOl 




0564 


0645 


4033 




NAME-4000 




0565 


0646 


0075 




SET I 


AUT02 




0566 


0647 


7771 




®6 






0567 


0650 


2027 


SOK, 


ADO 


CHAR 




05 70 


0651 


1374 




STH I 


AUTOl 


/STORE IN 6BIT 



0571 / 

0572 



EJECT 




0573 






/ 








0574 


0652 


0002 


SLOOP, 


POP 






0575 








PMOOE 






0576 


0653 


4366 




JMS 


GETC 




0577 


0654 


4445 




JMS I 


PLIMIT 




0600 


0655 


0301 




301 






0601 


0656 


0332 




332 




/A TO 2 


0602 


0657 


2163 




NOGOOD 






0603 


0660 


0662 










0604 


0661 


5270 




JHP 


SEND 




0605 


0662 


1027 




Tad 


CHAR 




0606 


0663 


44 45 




JMS I 


PLIMIT 




0607 


0664 


0260 




260 






0610 


0665 


0271 




271 




/0 TO 9 


0611 


0666 


2163 




NOGOOD 






0612 


0667 


0676 




SDUNE 






0613 






/ 








0614 






/ 








0615 


0670 


6141 


SEND, 


LING 






0616 








LMOOE 






0617 


06/1 


0235 




XSK I 


AUT02 


/END OF SYMBOL? 


0620 


0672 


6650 




JMP 


SOK 


/NO • PUT CHAR INTO NAME 


0621 


067 3 


0075 




SET I 


AUT02 


/YES « FORCE END NEXT TIME 


0622 


0674 


7776 




«1 






0623 


0675 


6652 




JMP 


SLOOP 


/SCAN TO delimiter 


0624 






/ 








0625 








EJECT 








0626 






/ 










0627 






/ 










0630 








PMOOE 








0631 






/ 










0632 






/ 


SYMBOL 


IS ASSEHBLED AT 


NAME. 


0633 






/ 




CHECK THE 


TERMINATOR. 


0634 






/ 










0635 






/ 










0636 


0676 


1027 


SDUNE, 


TAD 


CHAR 






0637 


0677 


1356 




TAD 


MEQ 






0640 


0700 


7450 




SNA 








0641 


0701 


5343 




JMP 


ASSY 




/SYMBOL definition (VIA «) 


0642 


0702 


1357 




tad 


EQMCOM 






0643 


0703 


7650 




SNA CLA 








0644 


0704 


5343 




JMP 


ASSY 




/TAG definition 


0645 






/ 










0646 






/ 


IS THE 


SYMBOL THE 


TEXT 


PSEUDO-OP 


0647 






/ 










0650 


0705 


1034 




TAD 


NAME 




/FIRST 2 CHARS OF SYMBOL 


0651 


0706 


1067 




TAD 


MTEXT 






0652 


0707 


76 40 




S2A CLA 






/DO THE FIRST TWO MATCH? 


0653 


0710 


5321 




JMP 


SAVREF 




/NO 


0654 


0711 


1035 




TAD 


name +1 




/YES-CHECK NEXT 


0655 


0712 


1070 




TAD 


MTEXT'^l 






0656 


0713 


7640 




S2A CLA 






/DO THESE MATCH? 


0657 


0 714 


5321 




JMP SAVREF 




/NO 


0660 


0715 


1036 




TAD 


N AME +2 




/YES-CHECK FOR BLANKS 


0661 


0716 


1071 




TAD 


MTEXT + 2 






0662 


0717 


7650 




SNA CLA 






/LAST chance 


0663 


0720 


5765 




JMP I 


PTEXT 




/START TEXT-MODE SCAN 


0664 


0721 


4761 


SAVREF , 


JMS I 


PNSERCH 




/THIS IS A REFERENCE, NOT A DEFINITION 


0665 


0722 


5222 




JMP 


SCAN 




/NOT A USER SYMBOL - RESUME SCAN 


0666 


0 7 23 


2024 




IS2 


TEMP 




/SKIP OVER END OF NAME 


0667 


0724 


2024 




1S2 


TEMP 




/SKIP OVER DEFINITION LINENO 


06 70 


0725 


4763 




JMS I 


PI2ER0 




/SCAN FOR END OF REFERENCES 


0671 


0726 


7402 




hlt 








06 72 


0727 


4764 




JHS I 


P80PUP 




/INCR COUNTER, TEST CORE OVERFLOW 


0673 


0730 


7240 




CLA CMA 








0674 


0731 


1024 




TAD 


TEMP 






06 75 


0732 


3334 




DCA 


BPl 






0676 


0733 


4450 




JMS I 


PIPUSH 




/MAKE SPACE FOR THIS LINE NO 


0677 


0 7 3 4 


0000 


8P1» 


0 








0700 


07 35 


0001 




1 








0701 


0736 


6201 




CDF 


0 






0702 


07 37 


1030 




TAD 


LI NENO 






0703 


0740 


3734 




DCA I 


BPl 




/STORE this LINE NO 


07 04 


07 41 


6211 




CDF 


10 






0705 


0742 


5222 




JMP 


SCAN 




/CONTINUE SCAN 


0706 






/ 










0707 








EJECT 










0710 






/ 








0711 






/ 




IF SYHBOL DEFINED HERE, 


0712 






/ 




INSERT LINENO 


IN FIRST WORD AFTER NAME 


0713 






/ 








0714 






/ 








0715 


0743 


4761 


ASSY, 


JMS I 


PNSERCH 




0716 


0744 


5222 




JMP 


SCAN 


/SHOULDNT HAPPEN 


0717 


0745 


7200 




CLA 






0720 


0746 


2024 




IS2 


TEMP 




0721 


0747 


6201 




COF 


0 




0722 


0750 


1030 




TAD 


LINENO 




0723 


0751 


3424 




DCA I 


TEMP 




0724 


0752 


6211 




COF 


10 




0725 

0726 


0753 


5222 


/ 


JMP 


SCAN 


/RESUME SCAN 


0727 






/ 








0730 






/ 








0731 


0754 


7747 


MMARGIN 


, •4-6»4’> 


2-4-2-3 




0732 


0755 


0022 


MARG IN f 


6+4+2*^4*2 




0733 


0756 


7503 


ME Q » 


-275 






0734 


0757 


0021 


EQMCOM, 


275*254 






0735 


0760 


7521 


MSLASH, 


«257 






0736 






/ 








0737 






/ 








0740 


0761 


1043 


PNSERCH 


, NSERCH 






0741 


0762 


1000 


PISNUM, 


ISNUM 






0742 


0/63 


1027 


PINERO, 


I2ERO 






0743 


0764 


0524 


P80PUP, 


80PUP 






0744 


07 65 


1105 


PTEXT, 


TXTMODE 






0745 






/ 








0746 






/ 








0747 






/ 








0750 






/ 








0751 






/ 








0752 






/ 








0753 


0766 


0000 


GETC, 


0 






0754 


0767 


7200 




CLA 






0755 


0770 


1431 




TAD I 


LPOINT 


/NEXT CHAR FROM CURRENT LINE 


0756 


0771 


3027 




DCA 


CHAR 




0757 


0772 


2031 




IS2 


LPOINT 


/POINT TO NEXT 


0760 


0773 


1027 




TAD 


CHAR 




0761 

0762 


0774 


5766 


/ 


JMP I 


GETC 


/RETURN WITH IT 


0763 

0764 






/ 


EJECT 








0765 






/ 






^766 






/ 






0767 








PAGE 




0770 






/ 






0771 






/ 


ASSEMBLE CURRENT LINE NUMBER IN BINARY AT UINENO. 


0772 






/ 




normal return TO P^2J ALT RETURN TO P*1 |F 


0773 






/ 




NEXT FOUR CHARACTERS ARE NOT OCTAL DIGITS, 


0774 






/ 






0775 


1000 


0000 


ISNUM, 


0 




0776 


1001 


7200 




CL A 




%in 


1002 


3030 




DCA 


LINENO /CLEAR LINE NO 


1000 


1003 


1225 




TAD 


M4 


1001 


1004 


3014 




OCA 


AUTOl 


1002 


1005 


4444 


1SNLP» 


JMS 1 


PGETC 


1003 


1006 


4445 




JMS I 


PLIMIT 


1004 


1007 


0260 




260 




1005 


1010 


0267 




267 


/OCTAL DIGITS 


1006 


1011 


2163 




NOGOOD 




1007 


1012 


1024 




WRONG 




1010 


1013 


1030 




TAD 


LINENO 


1011 


1014 


7106 




CLL RTL 




1012 


1015 


7004 




RAL 




1013 


1016 


1027 




TAD 


CHAR 


1014 


1017 


1226 




TAD 


MHERO 


1015 


1020 


3030 




DCA 


LINENO 


1016 


1021 


2014 




ISH 


AUTOl 


1017 


1022 


5205 




JMP 


ISNLP 


1020 


1023 


2200 




ISZ 


ISNUM 


1021 


1024 


5600 


WRONG* 


JMP I 


ISNUM 


1022 






/ 






1023 


1025 


7774 


M4 , 






1024 


1026 


7520 


M2ERO* 


• 260 




1025 






/ 






1026 






/ 






1027 






/ 


IF WORD 


AT TEMP IS 2ERO, TAKE SECOND RETURN, 


1030 






/ 




ELSE* INCREMENT TEMP AND TRY AGAIN, 


1031 






/ 




IF TEMP overflows, TAKE FIRST RETURN. 


1032 






/ 






1033 






/ 






1034 


1027 


0000 


I2ERO* 


0 




1035 


1030 


7200 




CLA 




1036 


1031 


6201 




CDF 


0 


1037 


1032 


1424 




TAD 1 


TEMP 


1040 


1033 


6211 




CDF 


10 


1041 


103 4 


7450 




SNA 




1042 


10 35 


2227 




IS2 


I2ERO 


1043 


1036 


7650 




SNA CLA 




1044 


1037 


5627 




JMP I 


IHERO 


1045 


1040 


2024 




ISg 


temp 


1046 


1041 


5231 




JMP 


12ERO*2 


1047 


1042 


5627 




JMP I 


IHERO 


1050 






/ 






1051 








EJECT 






1052 






/ 








1053 






/ 




FIND NAME IN 


SYMBOL table 


1054 






/ 








1055 


1043 


0000 


NSEHCH, 


2 






1056 


10 4 4 


72 00 




CLA 






1057 


1045 


1025 




tad 


START 


/start of symbol table 


1060 


10 46 


3024 




uCA 


TEMP 




1061 






/ 








1062 


104 7 


1303 


NLOOP, 


TAD 


PNAME 


/POINTER TO NAME - 1 


1063 


1050 


6014 




DCA 


AUTOl 




1064 


10 51 


1304 




TAO 


M3 


/6 chars = 3 WORDS 


1065 


1052 


3015 




DCA 


AUT02 




1066 






/ 








1067 


1053 


2024 


NL0UP2i 


ISi 


TEMP 


/INCR POINTER 


1070 


1054 


74 10 




SKP 




/NOT END OF CORE 


1071 


1055 


5643 




JHP I 


NSERCH 


/IF TEMP OVERFLOWS, NO FIND 


1072 


10 56 


6201 




CDF 


0 




1073 


1057 


1424 




tad I 


TEMP 


/WORD OF SYMBOL 


1074 


10 60 


6211 




COF 


10 




1075 


1061 


7041 




CIA 






1076 


10 6 2 


1414 




TAO I 


AUTOl 


/COMPARE TO NAME 


1077 






/ 








1100 






/ 


could test here for 


END OF SEARCH 


1101 






/ 








1102 


10 6 3 


7640 




SzlA CLA 




/EQUAL? 


1103 


1064 


5271 




JMP 


N8AD 


/NO « GO TO NEXT SYMBOL 


1104 


1065 


2015 




IS2 


AUT02 


/YES = END OF SYMBOL? 


1105 


1066 


5253 




JMP 


NL00P2 


/NO - COMPARE NEXT WORD 


1106 


10 67 


2243 




IS2 


NSERCH 


/YES - Match is here 


1107 


1 0 / 0 


:?643 




JMP I 


nserch 


/RETURN P+2 


1110 






/ 








1111 


1071 


1015 


NBAD , 


tad 


AUT02 


/REMAINING LENGTH OF SYMBOL 


1112 


1072 


7041 




CIA 






1113 


10/3 


/101 




CLL lAC 




/POS FORM ♦ 1 


1114 


1074 


1024 




TAO 


TEMP 


/INCR TEMP TO REFS 


1115 


10/5 


3024 




DCA 


TEMP 




1116 


1076 


7430 




S^L 




/END OF CORE? 


1117 


1077 


5643 




JMP I 


nserch 


/YES = NO FIND 


1120 


1100 


4227 




JMS 


I2ER0 


/NO « SEARCH FOR END OF REFS 


1121 


1101 


5643 




JMP I 


NSERCH 


/END OF CORE 


1122 


1102 


5247 




JMP 


NLOOP 


/GOT NEXT SYMBOL, COMPARE IT 


1123 






/ 








1124 






/ 








1125 


1103 


0033 


PNAHE, 


NAME-1 






1126 


1104 


7775 


M3, 


«3 






1127 






/ 








1130 






/ 








1131 








EJECT 








1132 






/ 






1133 






/ WE have 


SEEN A TEXT 


PSUEOO-OP 


1134 






/ IGNORE Input until oelihiter 


1135 






/ 






1136 






/ 






1137 


1105 


1027 


TXTMOOL. TAD 


CHAR 


/PSEUDO-OP terminator 


1140 


1106 


7450 


SNA 




/IS it hero? 


1141 


1107 


5312 


JMP 


getdel 


/YES » DELIMITER IS ON NEXT LINE 


1142 


1110 


1062 


tad 


mcaret 




1143 


1111 


/650 


SNA CLA 




/IS IT CAR RETURN? 


1144 


1112 


4327 


getdel# JMS 


txtlin 


/YES=GET NEXT LINE 


1145 


1113 


444 4 


JMS I 


pgetc 


/GET NEXT CHAR FROM LINE 


1146 


1114 


7041 


CIA 






1147 


1115 


3344 


DCA 


txtend 


/HOLD that 


1150 






/ 






1151 


1116 


4444 


TXTLP, JMS I 


pgetc 


/GET NEXT CHAR FROM LINE 


1152 


1117 


1344 


TAD 


txtend 


/IS IT DELIMITER? 


1153 


1122 


7650 


SNA CLA 






1154 


1121 


5/45 


JMP I 


tmajor 


/YES - RESUME MAJOR SCAN 


1155 


1122 


1027 


TAO 


CHAR 




1156 


1123 


1062 


tad 


mcaret 


/EOL? 


1157 


1124 


7650 


SNA CLA 






1160 


1125 


4327 


JMS 


txtlin 


/YES - GET ANOTHER LINE 


1161 


1126 


5316 


JMP 


txtlp 


/NO - KEEP TRYING 


1162 






/ 




1163 






/ 






1164 


1127 


0000 


TXTLIN, 0 






1165 


1130 


4443 


JMS I 


pgetlin 




1166 


1131 


2163 


nogood 






1167 


1132 


4447 


JMS I 


penolst 


/CHECK FOR END OF LISTING 


1170 


1133 


2000 


DUMP 




1171 


1134 


1346 


TAD 


HEDGE 


/IS LINE LONG ENOUGH? 


1172 


1135 


1032 


tao 


LLEN 




1173 


1136 


7710 


SPA CLA 






1174 


1137 


5330 


JMP 


TXTLIN’^I 


/NO - GET NEXT 


1175 


1140 


1347 


TAD 


EDGE 


/YES = SKIP OVER JUNK 


1176 


1141 


1031 


TAD 


LPOINT 


1177 


1142 


3031 


OCA 


LPOI NT 




1200 


1143 


5727 


JMP I 


TXTLIN 


/AND CONTINUE SCAN 


1201 






/ 




1202 






/ 






1203 


1144 


0000 


TXTEND, 0 






1204 


1145 


0605 


tmajor* major 






1205 


1146 


7747 


MEDGE, -31 


/minimum line width 


1206 


1147 


0026 


EDGE, 26 






1207 






/ 






1210 






/ 






1211 






eject 








1212 






/ 








1213 






/ 








1214 






/ 








1215 






/ 








1216 








PAGE 






1217 






/ 








1220 






/ 








1221 






/ 


HOVE DOWN A PORTION OF 


the table in field 0 


1222 






/ 




TO make SPACE 


FOR A new entry 


1223 






/ 








1224 


120i' 


00 00 


IPU6H. 


3 






1225 


12 .n 


720t; 




C L A 






1226 


1202 


1600 




TAG I 


[PUSH 


/ADOR OF last word 


1227 


120 3 


2 20 0 




ISi 


1 PUSH 




1230 


12 24 


7041 




CIA 






1231 


120 5 


1025 




TAD 


START 


/GIVES MINUS NUMBER 


1232 


1206 


3016 




OC A 


AUT03 


/STORE MINUS count 


1 2 3 3 


1207 


1025 




tao 


START 


/BEGIN OF SYM TAB - 


1234 


1210 


3014 




OC A 


AUTOl 




1235 


1211 


1600 




tao I 


IPUSH 


/DISTANCE TO PUSH 


12 36 


1212 


2200 




ISI 


IPUSH 




1237 


1213 


7 341 




CIA 






1240 


1214 


1325 




tao 


START 


/FROM OLD START 


1241 


1215 


3 325 




OCA 


START 


/GIVES NEW START 


1242 


1216 


1325 




tao 


START 




1243 


1217 


3315 




DCA 


AUT02 




1244 


1220 


1016 




tad 


AUT03 




1245 


1221 


7650 




SNA CL A 




/IS COUNT 2ER0? 


1246 


1222 


5603 




JMP I 


IPUSH 


/YES ^ EXIT NOW 


1247 


1223 


6231 




COF 


3 


/data IS IN FIELD 0 


1250 


1224 


1414 


IPIP, 


tad I 


AUTOI 


/GET A WORD 


1251 


1205 


3415 




DCA I 


AUT02 


/MOVE IT 


1252 


1226 


2316 




ISl 


AUT03 


/TEST COUNT 


1253 


1227 


5224 




JMP 


IPLP 




1254 


1230 


6211 




CDF 


10 




1255 


1231 


5603 




JMP I 


IPUSH 




1256 






/ 








1257 






/ 








1260 








EJECT 







PUSH 



WORDS MOVED 




1261 






/ 






1262 






/ 


HOVE data across FIELDS 


1263 






/ 






1264 






/ 






1265 


1232 


000 0 


IMOVE, 


0 




1266 


1233 


7200 




CL A 




1267 


1234 


4263 




JMS 


IMGET 


1270 


1235 


3253 




OCA 


IMCDFl 


1271 


1236 


7240 




CLA CMA 




1272 


1237 


4263 




JMS 


IMGET 


1273 


12^0 


3014 




OCA 


AUTOl 


1274 


1241 


4263 




JMS 


IMGET 


1275 


1242 


3255 




DCA 


IMC0F2 


1276 


1243 


7240 




CLA CMA 




1277 


1244 


4263 




JMS 


IMGET 


1300 


IZAo 


3015 




OCA 


AUT02 


1301 


1246 


4263 




JMS 


IMGET 


1302 


1247 


7450 




SNA 




1303 


1250 


3632 




JMP I 


IMOVE 


1304 


1251 


7041 




CIA 




1305 


1232 


3016 




DCA 


AUT03 


1306 


1253 


0000 


IMCDFl, 


0 




1307 


1254 


1414 




TAD I 


AUTOl 


1310 


1255 


0 000 


IMCDF2, 


0 




1311 


1236 


3415 




DCA I 


AUT02 


1312 


12 3 / 


2016 




ISH 


AUT03 


1313 


1260 


3253 




JMP 


IMCOFl 


1314 


12&1 


6211 




cor 


10 


1315 


1262 


3632 




JMP I 


IMOVE 


1316 






/ 






1317 






/ 






1320 


1263 


0 0 03 


IMGET, 


0 




1321 


1264 


1632 




TAD I 


IMOVE 


1322 


1263 


2232 




IS2 


IMOVE 


1323 


1266 


3663 




JMP I 


IMGET 


1324 






/ 






1325 








EJECT 






1326 / 



1327 






/ 






CHECK that 


THE AC IS WITHIN UNITS 


1330 






/ 










1331 


1267 


0000 


LIMIT, 


0 








1332 


1270 


3322 




OCA 




LTEMP 


/STORE comparison VALUE 


1333 


1271 


1667 




TAO 


I 


LIMIT 


/LOWER LIMIT 


13 34 


12 72 


2267 




ISi 




LIMIT 




1335 


12/3 


3323 




OCA 




LOW 




1336 


1274 


1667 




TAD 


I 


LIMIT 


/UPPER LIMIT 


1337 


1275 


2267 




ISi 




LIMIT 




1340 


1276 


3324 




DCA 




HIGH 




1341 


12/7 


1667 




tad 


I 


LIMIT 


/HERO RETURN 


1342 


1300 


2267 




IS2 




LIMIT 




1343 


1301 


3325 




OCA 




LEND 




1344 


1302 


1667 




TAD 


I 


LIMIT 


/OUT OP BOUNDS RETURN 


1345 


1303 


2267 




ISI 




LIMIT 




1346 


1304 


3326 




DCA 




LNO 




1347 


1305 


1322 




TAO 




LTEMP 


/GET TEST VALUE 


1350 


1306 


7450 




SNA 






/HERO? 


1351 


1307 


5725 




JMP 


I 


LEND 


/YES = TAKE P*3 RETURN 


1352 


1310 


7041 




CIA 








1353 


1311 


1324 




TAD 




HIGH 


/COMPARE TO UPPER BOUND 


1354 


1312 


7710 




SPA 


CL A 






1355 


1313 


5726 




JMP 


I 


LNO 


/OUT OF BOUNDS 


1356 


1314 


1323 




TAO 




LOW 




1357 


1315 


7041 




CIA 








1360 


1316 


1322 




TAD 




LTEMP 




1361 


1317 


7710 




SPA 


CLA 






1362 


1320 


5726 




JMP 


I 


LNO 


/OUT OF BOUNDS 


1363 


1321 


5667 




JMP 


I 


LIMIT 


/OK 


1364 






/ 










1365 






/ 










1366 






/ 










1367 


1322 


0000 


LTEMP, 


0 








1370 


1323 


0000 


LOW, 


0 








1371 


1324 


0000 


HIGH, 


0 








1372 


1325 


0000 


LEND, 


0 








1373 


1326 


0000 


LNO, 


0 









1374 / 

1375 / 

1376 



EJECT 




1377 






/ 








1400 








PAGE 






1401 






/ 








1402 






/ 


GET A BLOCK FROH 


THE LISTING FILE 


1403 






/ 








1404 


1400 


00 00 


GET8LK, 


0 






1405 


1401 


7200 




CLA 






1406 


1402 


6201 




CDF 


0 




1407 


1403 


1641 




TAD I 


P7750 


/SAVE 


1410 


1404 


3237 




OCA 


S7750 


/DISK 


1411 


1405 


1642 




TAD I 


P7751 


/DATA«8REAK 


1412 


1406 


3240 




DCA 


S7751 


/LOCATIONS 


1413 


1407 


6211 




CDF 


10 




1414 


1410 


4456 




JMS I 


READ 


/READ BLOCK 


1415 


1411 


1430 




POINTER 






1416 


1412 


6201 




CDF 


0 




1417 


1413 


1237 




TAD 


S7750 


/RESTORE 


1420 


1414 


3641 




OCA I 


P7750 


/DISK 


1421 


1415 


1240 




TAO 


S7751 


/DATA=BREAK 


1422 


1416 


3642 




DCA I 


P7 751 


/WORDS 


1423 


1417 


6211 




CDF 


10 




1424 


1420 


1234 




TAD 


MBUFLN 


/RESET POINTERS 


1425 


1421 


3370 




DCA 


BCOUNT 




1426 


1422 


1235 




tad 


PBUFF 




1427 


1423 


3367 




OCA 


BPOINT 




1430 


1424 


1232 




TAD 


BLOCK 


/UPDATE BLOCK NO 


1431 


1425 


1236 




TAD 


EIGHT 




1432 


142b 


3232 




OCA 


block 




1433 


1427 


5600 




JMP I 


GETBLK 




1434 






/ 








1435 






/ 








1436 


1430 


00 00 


POINTER. 


► 0 






1437 


1431 


0026 




3UFL0C 






1440 


1432 


00 00 


BLOCK, 


0 






1441 


1433 


0010 




10 






1442 






/ 








1443 






/ 








1444 


1434 


4000 


MBUPLN , 


^4000 






1445 


1435 


3000 


P8UFE, 


BUFFER 






1446 


1436 


0010 


EIGHT, 


10 






1447 






/ 








1450 


1437 


0000 


S7750, 


0 






1451 


1440 


0000 


S7751 , 


0 






1452 






/ 








1453 


1441 


7750 


P7750, 


7750 






1454 


1442 


7751 


P7751 , 


7751 






1455 






/ 








1456 






/ 








1457 








EJECT 








1460 






/ 










1461 






/ 










1462 






/ 


GET 


NEXT line of LI 


:STING 


1463 






/ 










1464 


1443 


0000 


GETLIN, 


0 








1465 


1444 


/^00 




CLA 








1466 


14 45 


1643 




TAD 


I 


GETLIN 


/alt RETURN IF 2ER0 IN INPUT 


1467 


1446 


3374 




OCA 




2ERET 




1470 


1447 


2243 




IS2 




GETLIN 


/NOW HAS NORMAL RETURN ADDR 


1471 


1450 


1373 




TAD 




PCURL 




1472 


1451 


3031 




OCA 




lpoint 


/RESET LINE POINTER 


1473 


1452 


1372 




TAD 




PCURL-1 




1474 


1453 


3014 




DCA 




AUTOl 


/SET line BUILD POINTER 


1475 


1454 


3032 




DCA 




LLEN 


/CLEAR LENGTH 


1476 


1455 


1/67 




TAD 


I 


BPOINT 


/GET FIRST CHAR OF NEXT LINE 


1477 


1456 


1063 




TAD 




MLINFD 


/LINE FEED? 


1500 


1457 


7450 




SNA 








1501 


1460 


5302 




JMP 




NULLIN 


/YES « NULL LINE 


1502 


1461 


1347 




TAD 




LFMCR 


/CAR RET? 


1503 


1462 


7650 




SNA 


CLA 






1504 


1463 


5302 




JMP 




NULLIN 


/YES • NULL LINE 


1505 


1464 


4351 


NXTOMEi 


JMS 




NXTCHR 


/NO « GET A CHAR 


1506 


1465 


3414 




OCA 


I 


AUTOl 


/INSERT IN LINE 


1507 


1466 


2032 




ISi 




LLEN 


/INCR LENGTH 


1510 


1467 


1022 




TAD 




LISTSW 


/LIST IT? 


1511 


14/0 


7650 




SNA 


CLA 






1512 


1471 


5274 




JMP 




EOLTST 


/NO - TEST FOR END OF LINE 


1513 


1472 


1027 




TAD 




CHAR 




1514 


14 73 


4446 




JMS 


I 


PPUTC 


/YES • OUTPUT IT 


1515 


1474 


1027 


eoltst, 


TAD 




CHAR 




1516 


1475 


1063 




TAD 




MLINFD 


/COMPARE TO LINE FEED 


1517 


1476 


7640 




SifA 


CLA 




/EOL? 


1520 


14 7 7 


5264 




JMP 




NXTONE 


/NO « GET ANOTHER 


1521 


1500 


0414 




DCA 


I 


AUTOl 


/SAFETY TERMINATOR 


1522 


1501 


5643 




JMP 


I 


GETLIN 


/TAKE NORMAL RETURN 


1523 






/ 










1524 






/ 


WHATCHA 


GOT HERE IS 


AN EMPTY line 


1525 






/ 


f « 1 


IT ! 


STARTS WITH 


CR OR LF 


1526 






/ 










1527 


1502 


1022 


NUUIN, 


TAD 




LISTSW 


/ARE WE LISTING? 


1530 


1503 


7640 




S2A 


CLA 






1531 


1504 


6316 




JMP 




LSTNUL 


/YES 


1532 


1505 


4351 


SKPNUL , 


JMS 




NXTCHR 


/GET CHARACTER 


1533 


1506 


1063 




TAD 




MLINFD 


/IS IT , , , 


1534 


1507 


7450 




SNA 






/line feed? 


1535 


1510 


5305 




JMP 




SKPNUL 


/YES • IGNORE IT 


1536 


1511 


1347 




TAD 




LFMCR 




1537 


1512 


7650 




SNA 


CLA 




/IS IT CR? 


1540 


1513 


5305 




JMP 




SKPNUL 


/YES » IGNORE 


1541 


1514 


1027 




TAD 




CHAR 




1542 


1515 


5265 




JMP 




NXTONE+1 


/REAL CHAR - BUILD LINE 


1543 






/ 










1544 








EJECT 








1545 / 

1546 / 



1547 


1516 


1021 


ISTNUL, 


TAD 




LP 


/IS THERE A PRINTER? 


1550 


1517 


7650 




SNA 


CLA 






1551 


1520 


5335 




JMP 




TYPNUL 


/NO - TYPE IT 


1552 


1521 


1033 




TAD 




LINE 


/CURRENT LINE ON PAGE 


1553 


1522 


1064 




TAD 




LPPAGE 


/ARE WE AT TOP OF PAGE? 


1554 


1523 


7650 




SNA 


CL A 






1555 


1524 


5305 




JMP 




SKPNUL 


/YES - IGNORE NULL LINES 


1556 


1525 


1065 




TAD 




MLPAGE 


/RESET LINE COUNT 


1557 


1526 


3033 




DCA 




LINE 




1560 


1527 


1066 




TAD 




EJCOM 


/TOP OF FORM COMMAND 


1561 


1530 


6661 




LSD 






/WAIT FOR PRINTER 


1562 


1531 


5330 




JMP 




I'l 




1563 


1532 


6652 




Lcr 






/clear flags 


1564 


1533 


6664 




LPR 






/PRINT AND EJECT 


1565 


1534 


5305 




JMP 




SKPNUL 




1566 






/ 










1567 


1535 


4351 


TYPNUL. 


JMS 




NXTCHR 


/GET CHARACTER 


1570 


1536 


4750 




JMS 


I 


pltt 


/TYPE IT 


1571 


1537 


1767 




TAD 


I 


BPOINT 


/NEXT CHAR 


1572 


1540 


1063 




tad 




ML INFO 


/IS IT LF? 


1573 


1541 


7450 




SNA 








1574 


1542 


5335 




JMP 




TYPNUL 


/YES » TYPE IT 


1575 


1543 


1347 




TAD 




LFMCR 


/IS IT CR? 


1576 


1544 


7650 




SNA 


CLA 






1577 


1545 


5335 




JMP 




TYPNUL 


/YES « TYPE IT 


1600 


1546 


5264 




JMP 




NXTONE 


/ELSE BUILD LINE 


1601 






/ 










1602 






/ 










1603 






/ 










1604 


1547 


7775 


LEMCR* 


212 = 


215 






1605 






/ 










1606 


1550 


1765 


PLTT, 


ITT 








1607 






/ 










1610 






/ 










1611 


1551 


0000 


NXTCHR, 


0 








1612 


1552 


7200 




CL A 








1613 


1553 


1767 




TAD 


I 


BPOINT 




1614 


1554 


0371 




AND 




CHRMSK 




1615 


1555 


7450 




SNA 






/WATCH OUT FOR 2ER0S 


1616 


1556 


5774 




JMP 


I 


2ERET 




1617 


1557 


3027 




DCA 




CHAR 




1620 


1560 


2367 




132 




BPOINT 




1621 


1561 


1027 




TAD 




CHAR 




1622 


1562 


2370 




IS2 




BCOUNT 




1623 


1563 


5751 




JMP 


I 


NXTCHR 




1624 


1564 


4200 




JMS 




getblk 




1625 


1565 


1027 




tad 




CHAR 




1626 


1566 


5/51 




JMP 


I 


NXTCHR 




1627 






/ 










1630 


1567 


0000 


8P0INT, 


0 








1631 


1570 


0000 


BCOUNT, 


0 








1632 


1571 


0377 


CHRMSK, 


377 








1633 


1572 


2311 




CURLIN'l 






1634 


1573 


2312 


PCURL» 


CURL IN 






1635 






/ 










1636 


1574 


0000 


2ERET, 


0 









1637 / 

1640 



EJECT 




1641 






/ 






1642 






/ 






1643 








page 




1644 






/ 


PRINT 


AC IN octal 


1645 






/ 






1646 






/ 






1647 


1600 


0000 


POCTAL» 


0 




1650 


1601 


3245 




OCA 


W4 


1651 


1602 


1245 




TAD 


W4 


1652 


1603 


7012 




RTR 




1653 


1604 


7010 




RAR 




1654 


1605 


3244 




DCA 


H3 


1655 


1606 


1245 




TAO 


W4 


1656 


1607 


0057 




AND 


P7 


1657 


1610 


1241 




TAO 


CHERO 


1660 


1611 


3245 




DCA 


W4 


1661 


1612 


1244 




TAD 


W3 


1662 


1613 


7012 




RTR 




1663 


1614 


7010 




RAR 




1664 


1615 


3243 




DCA 


W2 


1665 


1616 


1244 




TAO 


W3 


1666 


1617 


0057 




AND 


P7 


1667 


1620 


1241 




TAO 


CHERO 


1670 


1621 


3244 




OCA 


W3 


1671 


1622 


1243 




TAO 


W2 


1672 


1623 


7012 




RTR 




1673 


1624 


7010 




RAR 




1674 


1625 


3242 




OCA 


W1 


1675 


1626 


1243 




TAO 


W2 


1676 


1627 


0057 




AND 


P7 


1677 


1630 


1241 




TAD 


CHERO 


1700 


1631 


3243 




OCA 


W2 


1701 


1632 


1242 




TAO 


W1 


1702 


1633 


0057 




ANO 


P7 


1703 


1634 


1241 




TAO 


CHERO 


1704 


1635 


3242 




DCA 


W1 


1705 


1636 


4247 




JMS 


TTY 


1706 


1637 


1642 




W1 




1707 


1640 


5600 




JNP I 


poctal 


1710 






/ 






1711 


1641 


0260 


C2ER0, 


260 




1712 






/ 






1713 


1642 


0000 




0 




1714 


1643 


0000 




0 




1715 


1644 


0000 


W3, 


0 




1716 


1645 


0000 


W4» 


0 




1717 


1646 


0000 




0 




1720 






/ 






1721 








EJECT 






1722 






/ 






1723 


1647 


0000 


TTY, 


0 




1724 


1650 


7200 




CLA 




1725 


1651 


1647 




TAD I 


TTY 


1726 


1652 


3262 




DCA 


TYTEMP 


1727 


1653 


2247 




IS2 


TTY 


1730 


1654 


1662 


TLi 


TAD I 


TYTEMP 


1731 


1655 


2262 




ISi 


TYTEMP 


1732 


1656 


7450 




SNA 




1733 


1657 


5647 




JMP 1 


TTY 


1734 


1660 


4272 




JMS 


PUTC 


1735 


1661 


5254 




JMP 


tl 


1736 






/ 






1737 


1662 


0000 


TYTEMP, 


0 




1740 






/ 






1741 






/ 






1742 


1663 


0000 


CRLF, 


0 




1743 


1664 


4247 




JMS 


TTY 


1744 


1665 


1667 




C 




1745 


1666 


5663 




JMP I 


CRlF 


1746 






/ 






1747 


1667 


0215 


C, 


215 




1750 


1670 


0212 




212 




1751 


1671 


0000 




0 




1752 






/ 






1753 






/ 






1754 






/ 






1755 






/ 






1756 


1672 


0000 


PUTC, 


0 




1757 


1673 


3375 




DCA 


PT 


1760 


1674 


1375 




TAD 


pt 


1761 


1675 


4445 




JMS I 


plimit 


1762 


1676 


0240 




240 




1763 


1677 


0337 




337 




1764 


1700 


2163 




NOGOOD 




1765 


1701 


1717 




SP 




1766 


1702 


1021 




TAD 


LP 


1767 


1703 


7650 




SNA CLA 




1770 


1704 


5314 




JMP 


IT 


1771 


1705 


1375 




TAD 


PT 


1772 


1706 


6661 




LSD 




1773 


1707 


5306 




JMP 


*«1 


1774 


1710 


6652 




LCF 




1775 


1711 


6654 




LL8 




1776 


1712 


7200 




CLA 




1777 


1713 


5672 




JMP I 


PUTC 


2000 






/ 






2001 






/ 






2002 






/ 






2003 


1714 


1375 


LT, 


tad 


PT 


2004 


1715 


4365 




JMS 


LTT 


2005 


1716 


5672 




JMP 1 


PUTC 


2006 






/ 






2007 






/ 






2010 








EJECT 






2011 

2012 

2013 

2014 

2015 

2016 
2017 
2020 
2021 
2022 

2023 

2024 

2025 

2026 
2027 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 
2060 
2061 
2062 

2063 

2064 

2065 

2066 
2067 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 
2100 



/ 



/ 



1717 


1375 


SP, 


TAO 




PT 




1/20 


1062 




TAO 




MCARET 




1721 


/640 




SZA 


CLA 




/IS IT CAR RET? 


1722 


5672 




JMP 


1 


PUTC 


/NO « IGNORE 


1723 


7 30 3 




CLA 


CLL 






1724 


20 33 




ISZ 




LINE 


/YES « NEW LINE 


1725 


5331 




JMP 




REG 




1726 


10 65 




TAO 




MLPAGE 




172 7 


3033 




OCA 




LINE 




1730 


7120 




CLL 


CML 






1731 


1021 


REG, 


tad 




LP 




1732 


7650 




SNA 


CLA 






1733 


5345 




JMP 




LE 




1734 


1374 




tad 




P10 




1735 


7430 




S2L 






/NEW PAGE? 


1736 


1057 




TAD 




P7 


/YES a make EJECT COMMAND 


1737 


6661 




LSD 








1740 


5337 




JMP 








1741 


6652 




LCF 








1742 


6664 




LPR 








1743 


7200 




CLA 








1744 


5672 


/ 


JMP 


I 


PUTC 




1745 


1063 


/ 

LE, 


tad 




GARRET 




1746 


4365 




JMS 




LTT 




174/ 


1061 




TAO 




linfed 




1750 


4365 




JMS 




LTT 




1751 


7420 




SNL 






/PAGE? 


1752 


5672 




JMP 


I 


PUTC 


/NO 


1753 


1022 




TAD 




LISTSW 




1754 


7640 




S2A 


CLA 




/LISTING? 


1755 


5672 




JMP 


I 


PUTC 


/YES 


1756 


1373 




TAO 




M3A 




1757 


3376 




DCA 




LCOUNT 




1760 


1061 


LELP, 


TAD 




linfed 




1761 


4365 




JMS 




LTT 




1762 


2376 




ISH 




LCOUNT 




1763 


5360 




JMP 




LELP 




1764 


5672 


/ 


JMP 


I 


PUTC 




1765 


0000 


LIT, 


0 








1766 


6041 




Tsr 








1767 


5366 




JMP 




.•1 




1770 


6040 




TLS 








1771 


7200 




CLA 








1772 


5765 


/ 


JMP 


I 


LTT 




1773 


7775 


/ 

M3A, 


-3 








1774 


0010 


P10, 


10 








1775 


0000 


PT, 


0 








1776 


0000 


LCOUNT, 


0 









/ 

EJECT 




2101 






/ 








2102 








PAGE 






2103 






/ 








2104 






/ 


DUMP THE 


CROSS 


REFERENCE TABLE 


2105 






/ 








2106 


2000 


7200 


DUMP, 


CLA 






2107 


2001 


3022 




DCA 


LISTSW 




2110 


2002 


1021 




TAO 


LP 




2111 


2003 


7650 




SNA CLA 






2112 


2004 


5216 




JMP 


DTYPE 




2113 


2005 


1065 




TAD 


MLPAGE 




2114 


2006 


3033 




DCA 


LINE 




2115 


2007 


1266 




TAG 


EJCOM 




2116 


2010 


6661 




LSD 




/WAIT FOR PRINTER 


2117 


2011 


5210 




JMP 






2120 


2012 


6652 




Lcr 






2121 


2013 


6664 




lpr 






2122 


2014 


7200 




CLA 






2123 


2015 


5221 




JMP 


DMPGO 




2124 


2016 


4441 


DTVPt . 


JMS I 


PCRLF 




2125 


2017 


4441 




JMS I 


PCRLF 




2126 


2020 


4441 




JMS I 


PCRLF 




2127 


2021 


1025 


OMPGO, 


TAD 


START 




2130 


2022 


3024 




OCA 


TEMP 




2131 


2023 


4441 


DNAHE, 


JMS I 


PCRLF 




2132 


2024 


5263 


ONCE, 


JMP 


NOWHDR 


/FIRST TIME, FORCE A HEADER 


2133 


2025 


1033 




tad 


LINE 




2134 


2026 


1064 




tad 


LPRAGE 




2135 


2027 


7640 




S2A CLA 




/TOP OF PAGE? 


2136 


2030 


5236 




JMP 


OSYM 


/NO 


2137 


2031 


4442 


OOHDR. 


JMS 1 


PTTY 


/YES o print header 


2140 


2032 


2214 




CRTHDR 






2141 


2033 


2033 




IS2 


LINE 




2142 


2034 


4441 




JMS I 


PCRLF 




2143 


2035 


4441 




JMS 1 


PCRLF 




2144 


2036 


4347 


DSYH, 


JMS 


DSET 




2145 


2037 


2024 




ISi 


TEMP 




2146 


2040 


5266 




JMP 


NO 




2147 


2041 


1021 




TAD 


LP 


/PRINTER? 


2150 


2042 


7640 




Slk CLA 






2151 


2043 


5252 




JMP 


EJOUT 


/YES-EXIT WITH EJECT 


2152 


2044 


1374 




TAD 


M12 


/NO-EXIT WITH CRLF 


2153 


2045 


3016 




OCA 


AUT03 




2154 


2046 


4441 




JMS I 


PCRLF 




2155 


2047 


2016 




ISi 


AUT03 




2156 


2050 


5246 




JMP 


.*-2 




2157 


2051 


5455 




JMP I 


BOOT 




2160 






/ 








2161 


2052 


6661 


EJOUT, 


LSD 




/WAIT 


2162 


2053 


5252 




JMP 


.-1 




2163 


2054 


6652 




Lcr 






2164 


2055 


1066 




tad 


EJCOM 




2165 


2056 


6664 




LPR 




/EJECT 


2166 


2057 


6661 




LSD 






2167 


2060 


5257 




JMP 


.-1 




2170 


2061 


6652 




Lcr 






2171 


2062 


5455 




JMP I 


BOOT 


/EXIT 


2172 






/ 








2173 


2063 


1200 


NOWHDP, 


TAO 


DUMP 


/PICK UP CLA INSTR 


2174 


2064 


3224 




OCA 


ONCE 


/NOP THE JMP TO HERE 


2175 


2065 


5231 




JMP 


DONOR 


/FORCE HEADER THE FIRST TIME 


2176 






/ 








2177 








EJECT 








2200 

2201 

2202 

2203 

2204 

2205 

2206 
2207 
2210 
2211 
2212 

2213 

2214 

2215 

2216 
2217 
2220 
2221 
2222 

2223 

2224 

2225 

2226 
2227 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 
2260 
2261 
2262 

2263 

2264 

2265 

2266 



/ 



/ 



2066 


4443 


NO, 


JMS I 


pgetlin 


2067 


2163 




NOGOCO 




2070 


1431 




TAD I 


LPOINT 


2071 


4445 




JMS I 


PLIMIT 


2072 


0301 




301 




2073 


03 32 




33 2 




2074 


2163 




NOGOOO 




2075 


2066 




NO 




2076 


3745 




DCA I 


SYMEND 


2077 


3746 




OCA I 


VALEND 


2100 


4442 




JMS I 


PTTY 


2101 


2312 




CURLIN 




2102 


4442 




JMS I 


PTTY 


2103 


2211 




N8 




2104 


4442 




JMS I 


PTTY 


2105 


2321 




CURLIN+7 


2106 


4442 




JMS I 


PTTY 


2107 


2211 




NB 




2110 


7325 




CLA STL 


lAC RAL 


2111 


1024 




TAO 


TEMP 


2112 


3024 




OCA 


TEMP 


2113 


4356 




JMS 


gtemp 


2114 


4452 




JMS I 


PPOCTAL 


2115 


4442 




JMS I 


PTTY 


2116 


2211 




NB 




2117 


2024 


NNLOOP, 


ISH 


TEMP 


2120 


4356 




JMS 


GTEMP 


2121 


7450 




SNA 




2122 


5223 




JMP 


DNAME 


2123 


4452 




JMS 1 


PPOCTAL 


2124 


4442 




JMS I 


PTTY 


2125 


2212 




NB^l 




2126 


2376 




IS2 


NREST 


2127 


5317 




JMP 


NNLOOP 


2130 


2024 




ISH 


TEMP 


2131 


4356 




JMS 


GTEMP 


2132 


7650 




SNA CLA 




2133 


5223 




JMP 


DNAME 


2134 


4441 




JMS I 


PCRLF 


2135 


4347 




JMS 


OSET 


2136 


1374 




TAD 


M12 


2137 


3014 




OCA 


AUTOl 


2140 


4442 




JMS I 


PTTY 


2141 


2211 




NB 




2142 


2014 




ISH 


AUTOl 


2143 


5340 




JMP 


.-3 


2144 


5320 


/ 


JMP 


NNLOOP+1 


2145 


2320 


SYMENO, 


CURLIN*6 




2146 


2325 


VALEND, 


CURLIN*13 



/ 

/ 



/GET A LINE FROM SYMBOL TABLE 
/SHOULDNT HAPPEN 
/GET FIRST CHAR OF LINE 
/CHECK VALIDITY 

/ALPHA ONLY 

/IN CASE OF GARBAGE 
/STOP AFTER SYMBOL 
/AND after value 
/PRINT SYMBOL 

/TWO SPACES 

/PRINT VALUE 

/TWO SPACES 

/CONSTANT THREE 
/BUMP TEMP OVER NAME 

/DEFINITION LINE 

/TWO SPACES 



/GET A REFERENCE 
/USED? 

/NO » END OF REFS TO THIS SYMBOL 
/yes • print IT 
/SPACE ONCE 

/MORE ROOM ON LINE? 

/YES « GET NEXT REF 
/NO 

/IS THERE ANOTHER REF? 

/NO - GO TO NEXT SYMBOL 
/YES « NEW LINE 
/SET LIMIT 
/SPACE OVER BY 20 



/SPACE TO REF FIELD 



EJECT 




2267 






/ 




2270 






/ 




2271 


2147 


0000 


DSET, 0 




2272 


2150 


1021 


TAD 


LP 


2273 


2151 


7640 


S2A CLA 


2274 


2152 


1375 


TAD 


P12M26 


2275 


2153 


1374 


TAD 


M12 


2276 


2154 


3376 


DCA 


NREST 


2277 


2155 


5747 


JMP I 


DSET 


2300 






/ 




2301 






/ 




2302 


2156 


0000 


GTEMP, 0 




2303 


2157 


6201 


CDF 


0 


2304 


2160 


1424 


TAD I 


TEMP 


2305 


2161 


6211 


COF 


10 


2306 


2162 


5756 


JMP 1 


GTEMP 


2307 






/ 




2310 






/ 




2311 






/ 




2312 






/ 




2313 


2163 


4441 


NOGOOD# JMS I 


PCRLF 


2314 


2164 


4441 


JMS I 


PCRLF 


2315 


2165 


4441 


JMS I 


PCRLF 


2316 


2166 


4442 


JMS I 


PTTY 


2317 


2167 


2177 


BADINPUT 


2320 


2170 


4441 


JMS I 


PCRLF 


2321 


2171 


4441 


JMS I 


PCRLF 


2322 


2172 


4441 


JMS I 


PCRLF 


2323 


2173 


5455 


JMP I 


BOOT 


2324 






/ 




2325 


2174 


7766 


M12# »12 




2326 


2175 


7764 


P12M26, 12«26 




2327 






/ 




2330 






/ 




2331 






/ 




2332 


2176 


0000 


NREST# 0 




2333 






/ 




2334 






/ 




2335 






LCB=6662 




2336 






LCFS6652 




2337 






LLB=6654 




2340 






LPR=6664 




2341 






LSD-6661 




2342 






/ 




2343 






/ 




2344 






/ 





2345 



/rOUND A 2ER0 
/IN INPUT 

/WHERE NOT EXPECTED 



EJECT 




2346 






/ 






2347 






/ 






2350 






/ 


MESSAGES 


2351 






/ 






2352 






/ 






2353 


2177 


0302 


badinput 


■|302 


/B 


2354 


2200 


0301 




301 


/A 


2355 


2201 


0304 




304 


/O 


2356 


2202 


0240 




240 


/ 


2357 


2203 


0311 




311 


/I 


2360 


2204 


0316 




316 


/N 


2361 


2205 


0320 




320 


/P 


2362 


2206 


0325 




325 


/U 


2363 


2207 


0324 




324 


/T 


2364 


2210 


0000 




0 




2365 






/ 






2366 






/ 






2367 






/ 






2370 


2211 


0240 


NB» 


240 




2371 


2212 


0240 




240 




2372 


2213 


0000 




0 


/TWO BLANKS 


2373 






/ 






2374 






/ 






2375 


2214 


0323 


CRFHDR* 


323 


/S 


2376 


2215 


0331 




331 


/Y 


2377 


2216 


0315 




315 


/M 


2400 


2217 


0302 




302 


/B 


2401 


2220 


0317 




317 


/O 


2402 


2221 


0314 




314 


/L 


2403 


2222 


0240 




240 




2404 


2223 


0240 




240 




2405 


2224 


0326 




326 


/V 


2406 


2225 


0301 




301 


/A 


2407 


2226 


0314 




314 


/L 


2410 


2227 


0325 




325 


/U 


2411 


2230 


0305 




305 


/E 


2412 


2231 


0240 




240 




2413 


2232 


0240 




240 




2414 


2233 


0304 




304 


/O 


2415 


2234 


0305 




305 


/E 


2416 


2235 


0306 




306 


/F 


2417 


2236 


0240 




240 




2420 


2237 


0240 




240 




2421 


2240 


0322 




322 


/R 


2422 


2241 


0305 




305 


/E 


2423 


2242 


0306 




306 


/F 


2424 


2243 


0305 




305 


/E 


2425 


2244 


0322 




322 


/R 


2426 


2245 


0305 




305 


/E 


2427 


2246 


0316 




316 


/N 


2430 


2247 


0303 




303 


/c 


2431 


2250 


0305 




305 


/E 


2432 


2251 


0323 




323 


/S 


2433 


2252 


0000 




0 




2434 






/ 






2435 








EJECT 






2436 

2437 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2530 

2531 

2532 

2533 

2534 



/ 



2253 


0215 MESSl, 


215 


/CAR RET 


2254 


0212 


212 


/LINE FEED 


2255 


0303 


303 


/c 


2256 


0317 


317 


/O 


2257 


0322 


322 


/R 


2260 


0305 


305 


/E 


2261 


0240 


240 


/ 


2262 


0317 


317 


/O 


2263 


0326 


326 


/V 


2264 


0305 


305 


/E 


2265 


0322 


322 


/R 


2266 


0306 


306 


/F 


2267 


0314 


314 


/L 


2270 


0317 


317 


/O 


2271 


0327 


327 


/w 


2272 


0305 


305 


/E 


2273 


0304 


304 


/O 


2274 


0240 


240 


/ 


2275 


0301 


301 


/A 


2276 


0324 


324 


/T 


2277 


0240 


240 


/ 


2300 


0314 


314 


/L 


2301 


0311 


311 


/I 


2302 


0316 


316 


/N 


2303 


0305 


305 


/E 


2304 


0240 


240 


/ 


2305 


0316 


316 


/N 


2306 


0317 


317 


/O 


2307 


0256 


256 


/ . 


2310 


0240 


240 


/ 


2311 


0000 


0 





/ 

/ 

CURLING. /CURRENT LINE OF LISTING STARTS HERE 

/ 



/ 



2312 


0325 


INIT, 


325 


/U 


2313 


0316 




316 


/N 


2314 


0311 




311 


/I 


2315 


0324 




324 


/T 


2316 


0240 




240 


/ 


2317 


0243 




243 


/ 


2320 


0277 




277 


/? 


2321 


0000 


/ 

LST, 


0 




2322 


0314 


314 


/L 


2323 


0311 




311 


/I 


2324 


0323 




323 


/S 


2325 


0324 




324 


/T 


2326 


0311 




311 


/I 


2327 


0316 




316 


/N 


2330 


0307 




307 


/G 


2331 


0333 




333 


/[ 


2352 


0331 




331 


/Y 


2333 


0240 




240 


/ 


2334 


0317 




317 


/O 


2335 


0322 




322 


/R 


2336 


0240 




240 


/ 


2337 


0316 




316 


/N 


2340 


0335 




335 


/3 


2341 


0277 




277 


/? 


2342 


0000 




0 






2535 






/ 






2536 






/ 






2537 


2343 


0320 


PRT, 


320 


/P 


2540 


2344 


0322 




322 


/R 


2541 


2345 


0311 




311 


/I 


2542 


2346 


0316 




316 


/N 


2543 


2347 


0324 




324 


/T 


2544 


2350 


0305 




305 


/E 


2545 


2351 


0322 




322 


/R 


2546 


2352 


0333 




333 


/C 


2547 


2353 


0331 




331 


/Y 


2550 


2354 


0240 




240 


/ 


2551 


2355 


0317 




317 


/O 


2552 


2356 


0322 




322 


/R 


2553 


2357 


0240 




240 


/ 


2554 


2360 


0316 




316 


/N 


2555 


2361 


0335 




335 




2556 


2362 


0277 




277 


/? 


2557 


2363 


0000 




0 




2560 






/ 






2561 






/ 






2562 






/ 






2563 






/ 


END OF 


CREF12 


2564 






/ 






2565 






/ 






2566 






/ 






2567 






/ 






2570 








LISTAPE 


7 




NO EKROttS 




SYMBOL VALUE OEF REFERENCES 



assy 0743 07Xb 0641 0644 

AUTOl 0014 0020 0335 0347 041b 0426 0563 0570 1001 1016 1063 1076 1234 1250 1273 1307 1474 1506 1521 2253 2256 

AUT02 0015 0021 0346 0350 0417 0427 0565 0617 0621 1065 1104 1111 1243 l25l 1300 l3ll 

AUT03 0016 0022 0337 0353 1232 1244 1252 1305 l3l2 2153 2155 

AUT04 0017 0023 

BAOINP 2177 2353 2317 

BCOUNT 1570 1631 1425 1622 

BLOCK 1432 1440 0070 1430 1432 

boot 0055 0074 2157 2171 2323 

BOPOUT 0527 0465 0442 

BOPRST 0535 04/3 0477 

BOPUP 0524 0462 0464 0743 

BPOINT 1567 1630 1427 1476 1571 1613 1620 

BPl 0734 0677 0675 0703 

BUFFER 3000 0115 1445 

BUFLOC 0026 0116 1437 

C 1667 1747 1744 

GARRET 0060 0100 2042 

CHAR 0027 0036 0176 0203 0217 0235 0257 0260 0262 0544 0567 0605 0636 0756 0760 1013 U37 H55 1513 I5l5 1541 I6l7 l62l 1625 

CHRMSK 1571 1632 1614 

CNMCY 0326 02/2 0223 0241 

COUNT 0026 0035 

CRFHDR 2214 23/5 2140 

CRLF 1663 1742 0055 1745 

CURLIN 2312 2500 0040 1633 1634 2215 2221 2262 2263 

C2ER0 1641 1711 1657 1667 1677 1703 

OMPGO 2021 2127 2123 

DNAME 2023 2131 2236 2247 

DOHOR 2031 2137 2175 

DSET 2147 2271 2144 2251 2277 

DSYM 2036 2144 2136 

DTYPE 2016 2124 2112 

DUMP 2000 2106 0476 0524 1170 2173 

EDGE 1147 1206 1175 

EIGHT 1436 1446 1431 

EJCOM 0066 0106 0245 1560 2115 2164 

EUOUT 2052 2161 2151 

ENDLEN 0453 0367 0336 

ENOLST 0415 0327 0063 0317 0331 0333 0352 

ENDLUP 0435 0347 0354 

ENOMES 0444 0360 0334 0367 

ENDRET 0454 0371 0332 0355 

EOLTST 1474 1515 1512 

EQMCOM 0757 0734 0642 

GET8LK 1400 1404 0067 1433 1624 

GETC 0766 0753 0060 0540 0576 0761 

GETOEL 1112 1144 1141 

GETLIN 1443 1464 0057 1466 1470 1522 

GETTTY 0310 0252 0i62 0215 0233 0263 

GTEMP 2156 2302 2227 2234 2245 2306 

HIGH 1324 1371 1340 1353 

IMCOFl 1253 1306 1270 1313 

IMC0F2 1255 1310 1275 

IMGET 1263 1320 1267 1272 1274 1277 1301 1323 

IMOVE 1232 1265 0065 1303 1315 1321 1322 

INIT 2312 2503 0160 

IPLP 1224 1250 1253 

IPUSH 1200 1224 0064 1226 1227 1235 1236 1246 1255 

ISNLP 1005 1002 1017 

ISNUM 1000 0775 0741 1020 1021 




SYMBOL 


VALUE 


OEF 


REFERENCES 






lEERO 


1027 


1034 


0742 


1042 


1044 


1046 


LCB 


6662 


2335 










LCF 


6652 


2336 


1563 


1774 


2035 


2120 


LCOUNT 


1/76 


2076 


2054 


2057 






LE 


1745 


2042 


2027 








LELP 


1760 


2055 


2060 








LEND 


1325 


1372 


1343 


1351 






lfmcr 


1547 


1604 


lt?02 


1536 


1575 




LIMIT 


1267 


1331 


0061 


1333 


1334 


1336 


LINE 


0033 


0042 


1552 


155 7 


2020 


2023 


LINENO 


0030 


0037 


0467 


0702 


0722 


0777 


LINFED 


0061 


0101 


2044 


2055 






LISTSW 


0022 


0051 


0516 


1510 


1527 


2050 


LLB 


6654 


2337 


1/75 








LLEN 


0032 


0041 


0526 


1172 


1475 


1507 


LNO 


1326 


1373 


1346 


1355 


1362 




LOW 


1323 


1370 


1335 


1356 






LP 


0021 


00 30 


0155 


0244 


1547 


1766 


LPOINT 


0031 


0040 


0340 


0345 


0405 


0534 


LPPAGE 


0064 


0104 


1553 


2134 






lpr 


6664 


2340 


0246 


1564 


2036 


2121 


LSD 


6661 


2341 


1561 


1772 


2033 


2116 


LSI 


2322 


2514 


0214 








LSTNUL 


1516 


1547 


1531 








LSTREQ 


0023 


0032 


0154 


0226 


0515 




LSTSET 


0255 


0213 


0225 








LT 


1714 


2003 


1770 








LTEMP 


1322 


1367 


1332 


1347 


1360 




LIT 


1765 


2063 


1606 


2004 


2043 


2045 


MAIN 


0400 


0303 


0267 








MAJOR 


0605 


0521 


0530 


0532 


0543 


0550 


MARGIN 


0755 


0732 


0533 








MBT 


0473 


0421 


0430 








nbufln 


1434 


1444 


1424 








MCARET 


0062 


0102 


0204 


1142 


1156 


2014 


MCN 


0325 


0271 


0220 


0236 






HEDGE 


1146 


1205 


1171 








MEQ 


0756 


0733 


0637 








MESSl 


2253 


2437 


0466 








mlinfd 


0063 


0103 


1477 


1516 


1533 


1572 


mloop 


0410 


0315 


0321 








MLPAGE 


0065 


0105 


1556 


2022 


2113 




MMARGI 


0754 


0731 


0525 








MSLASH 


0760 


0735 


0541 








MTEXT 


006 7 


0110 


0651 


0655 


0661 




M2ERO 


1026 


1024 


i0l4 








M12 


2174 


2325 


2152 


2252 


2275 




M3 


1104 


1126 


1064 








H3A 


1773 


2073 


2053 








M4 


1025 


1023 


1000 








NAME 


0034 


0043 


0416 


0434 


0435 


0450 


NB 


2211 


2370 


2217 


2223 


2232 


2241 


NBAO 


1071 


llii 


1103 








ND 


2066 


2202 


2146 


2211 






NEGN 


0455 


03 72 


0341 








NLOOP 


1047 


1062 


1122 








NLOOP2 


1053 


1067 


1105 








NNLOOP 


2117 


2233 


2243 


2260 






NOGOOO 


2163 


2313 


0316 


0474 


0522 


0602 


NOWHDR 


2063 


2173 


2132 








NREST 


217 6 


2332 


2242 


2276 







1047 1120 
2163 2170 

1337 1341 1342 1344 1345 1363 
2114 2133 2141 
1010 1015 

2107 



2025 2110 2147 2272 

0535 0755 0757 1176 1177 1472 2204 

2165 

2161 2166 



2056 2070 
1204 



0557 0561 0562 0564 0650 0654 0660 1125 
2255 



0611 1006 1166 1764 2203 2210 




SYMBOL VALUE DEF REFERENCES 



NSERCH 104^ 10bi> 0740 1071 1106 1107 1117 1121 

NULLIN lb02 1527 1501 1504 

NXTCHR 1551 1611 1505 1532 1567 1623 1626 

NXTONE 1464 1505 1520 1542 1600 

ONCE 2024 2132 2174 

PART2 0600 0512 0404 

PBLOCK 0054 0070 0605 0513 

PBOPUP 0764 0743 0672 

PBUFF 1435 1445 1426 

PCRLF 0041 0055 0156 0216 0234 0303 0471 0472 2l24 2125 2126 2131 2l42 2143 2154 2250 2313 23l4 2315 2320 2321 2322 

PCURL 1573 1634 1471 1473 

PENOLS 0047 0063 0475 0523 1167 

PGETBL 0053 0067 0306 0514 

PGETC 0044 0060 0423 1002 1145 1151 

PGETLI 0043 00:>/ 0315 0403 0473 0521 1165 2202 

PIMOVE 0051 0065 0446 

PIPUSH 0050 0064 0443 0676 

PISNUH 0762 0741 0531 

P12ERO 0763 0742 0670 

PLIHIT 0045 0061 0163 0406 0545 0577 0606 1003 1761 2205 

PUTT 1550 1606 1570 

PMAIN 0323 0267 0240 0247 

PNAME 1103 1125 1062 

PNSERC 0761 0740 0664 0715 

POCTAL 1600 1647 0066 1707 

POINTE 1430 1436 0266 1415 

PPOCTA 0052 0066 0470 2230 2237 

PPQINT 0322 0266 0161 0170 0200 

PPUTC 0046 0062 0261 1514 

PRT 2343 2537 0232 

PRTSET 0271 0231 0222 0243 

PT 1775 20/5 1757 1760 1771 2003 2013 

PTEXT 0765 0744 0663 

PTTY 0042 0056 0157 0213 0231 0465 2137 2214 2216 2220 2222 2231 2240 2254 2316 

Pure 1672 1756 0062 1734 1777 2005 2016 2040 2047 2052 2061 

P10 1774 2074 2030 

P12M26 2175 2326 2274 

P17 0324 0270 0177 

P5 0542 0502 0436 

P7 0057 0077 1656 1666 1676 1702 2032 

P7750 1441 1453 1407 1420 

P7751 1442 1454 1411 1422 

READ 0056 0075 1414 

KEG 1731 2025 2021 

RESTAR 0222 0153 0166 0173 0206 

SAVREF 0721 0664 0653 0657 

SCAN 0622 0540 0551 0665 0705 0716 0725 

SDUNE 0676 0636 0612 

SEND 0670 0615 0604 

SKPNUL 1505 1532 1535 1540 1555 1565 

SLOOP 0652 0574 0623 

SOK 0650 0567 0620 

SP 1/17 2013 1/65 

START 0025 0034 0310 1057 1231 1233 1240 1241 1242 2127 

SYMBUI 0456 0403 0320 0411 0412 0454 

SYMEND 2145 2262 2212 

SYSGOU 0020 002/ 0312 0437 0440 0463 

57750 1437 1450 1410 1417 

57751 1440 1451 1412 1421 

TEMP 0024 0033 0666 0667 0674 0720 0723 1037 1045 1060 1067 1073 1114 1115 2130 2145 2225 2226 2233 2244 2304 

TL 1654 1730 1/35 




SYN80L 


VALUE 


DEE 


REFERENCES 




TLOOP 


0241 


0162 


0201 








tmajor 


U4t) 


1204 


1154 








TTY 


1647 


1723 


0056 


1705 


1725 


1727 


TXTEND 


1144 


1203 


1147 


1152 






TXTLIN 


1127 


1164 


1144 


1160 


1174 


1200 


TXTLP 


1116 


1151 


1161 








TXTHOD 


110!? 


1137 


0744 








TYPNUl 


lt?3i? 


156/ 


1551 


1574 


1577 




TYTEMP 


1662 


1737 


1726 


1730 


1731 




USET 


0251 


0203 


0167 








VALEND 


2146 


2263 


2213 








WRONG 


1024 


1021 


1007 








W1 


1642 


1713 


1674 


1701 


1704 


1706 


W2 


1643 


1714 


1664 


1671 


1675 


1700 


W3 


1644 


1715 


1654 


1661 


1665 


1670 


WA 


1645 


1716 


1650 


1651 


1655 


1660 


2ERET 


1574 


1636 


1467 


1616 








HOW TO OBTAIN SOFTWARE INFORMATION 



Announcements for new and revised software, as well as programming notes, software problems, and documenta- 
tion corrections are published by Software Information Service in the following newsletters. 



Digital Software News for the PDP-8 Family 
Digital Software News for the PDP-9/15 Family 
PDP-6/PDP-I0 Software Bulletin 



These newsletters contain information applicable to software available from DigitaTs Program Library. 



Please complete the card below to place your name on the newsletter mailing list. 



Questions or problems concerning DEC Software should be reported to the Software Specialist at your nearest DEC 
regional or district sales office. In cases where no Software Specialist is available, please send a Software Trouble 
Report form with details of the problem to: 

Software Information Service 
Digital Equipment Corporation 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 

These forms, which are available without charge from the Program Library, should be fully filled out and accompa- 
nied by teletype output as well as listings or tapes of the user program to facilitate a complete investigation. An 
answer will be sent to the individual and appropriate topics of general interest will be printed in the newsletter. 



New^ and revised software and manuals. Software Trouble Report forms, and cumulative Software Manual Updates 
are available from the Program Library. When ordering, include the document number and a brief description of 
the program or manual requested. Revisions of programs and documents will be announced in the newsletters and 
a price list will be included twice yearly. Direct all inquiries and requests to; 

Program Library 
Digital Equipment Corporation 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 

Digital lujuipment C omputer Users Society (DECUS) maintains a user Library and publishes a catalog of programs 
as well as the DliCUSCOPI: magazine for its members and non-members who request it. For further information 
please write to; 

Di;cus 

Digital Expiipment Corporation 

1 46 Main Street 

Maynard, Massachusetts 01754 



Send Digital's software newsletters to; 

Name 

Company Name 
Add ress 



My computer is a 


PDP-8/1 □ 
L INC-8 □ 
PDP-9 □ 
PDP-10 O 


PDP-8/L □ 
PDP-12 □ 
PDP-15 □ 
OTHER 


(zip code) 
Please specify 


My system serial number is 




(if known) 







Do Not Tear * Fold Here and Staple 
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NO POSTAGE STAMP NECESSARY IF MAILED IN THE UNITED STATES 
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Digital Equipment Corporation 
Software Information Services 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 
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READER’S COMMENTS 



CREF12 



DEC-12-“FRZA-D 



Digital Equipment Corporation maintains a continuous effort to improve the quality and usefulness of its 
publications. To do this effectively we need user feedback — your critical evaluation of this manual. 

Please comment on this manual’s completeness, accuracy, organization, usability, and readability. 



Did you find errors in this manual? 



How can this manual be improved? 



DEC also strives to keep its customers informed of current DEC software and publications. Thus, the following period- 
ically distributed publications are available upon request. Please check the appropriate boxes for a current issue of the 
publication(s) desired. 

□ Software Manual Update, a quarterly collection of revisions to current software manuals. 

□ User’s Bookshelf, a bibliography of current software manuals. 

Q Program Library Price List, a list of currently available software programs and manuals. 

Please describe your position. 

Name Organization 

Street Department 

City State Zip or Country 



Fold Here 
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